home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0828.ZIP
/
DEXPERT.ZIP
/
TRAIMENU.PRG
< prev
next >
Wrap
Text File
|
1987-02-06
|
848b
|
39 lines
clear
set defa to c
set path to c:\training
set conf on
set stat off
set scor off
set talk off
set proc to training
bc=.t.
do while bc
clear
set colo to bg+/n,w/g
deopt=0
@ 1,20 say "dEXPERT"
@ 2,15 say "TRAINING PROGRAMS MASTER MENU"
@ 3,10 to 3,70 double
@ 5,15 say "1. Create Training Program Screens"
@ 6,15 say "2. View a Training Database"
@ 7,15 say "3. Edit Existing Screens"
@ 8,15 say "4. Exit dEXPERT"
@ 10,15 get deopt pict "@Z 9"
@ 10,17 say "<<<<Enter Selection"
read
do case
case deopt=1
do creator
clos data
clos form
case deopt=2
do trainer
clos data
clos form
case deopt=3
do editor
case deopt=4
quit
endcase
enddo